perm filename ALTTES.LSP[206,JMC] blob sn#065891 filedate 1973-10-05 generic text, type T, neo UTF8
00100	(DE ALT (X) (COND ((OR (NULL X) (NULL (CDR X))) X)
00200	(T (CONS (CAR X) (ALT (CDDR X))))))
00300	
00400	(DE TES (X Y) (COND ((EQUAL Y 0) NIL)
00500	(T (TES (APPEND (ALT X) (ALT X)) (SUB1 Y)))))